home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / prg_basi / n_b-v200.zip / DAS-NBT3.INC < prev    next >
Text File  |  1996-03-11  |  2KB  |  59 lines
  1. '────────────────────────────────────────────────────────────────────────────
  2.  
  3. $LINK "DAS-NBT3.PBL"
  4.  
  5. '────────────────────────────────────────────────────────────────────────────
  6.   TYPE TmenuTYPE
  7.     SetUp   AS BYTE
  8.     Row     AS BYTE
  9.     Col     AS BYTE
  10.     Iwide   AS BYTE
  11.     IRows   AS BYTE
  12.     ICols   AS BYTE
  13.     Vert    AS BYTE
  14.     Wrap    AS BYTE
  15.     HKs     AS BYTE
  16.     AttrN   AS BYTE
  17.     AttrL   AS BYTE
  18.     AttrB   AS BYTE
  19.     AttrO   AS BYTE
  20.     Srow    AS BYTE
  21.     Scol    AS BYTE
  22.     Srows   AS BYTE
  23.     Aattr   AS BYTE
  24.     Brdr    AS BYTE
  25.     Battr   AS BYTE
  26.     Shdo    AS BYTE
  27.     Sattr   AS BYTE
  28.     Tpos    AS BYTE
  29.   END TYPE
  30. '────────────────────────────────────────────────────────────────────────────
  31.   TYPE YesNoTYPE
  32.     YesKey    AS BYTE
  33.     YesText   AS STRING * 17
  34.     YesAttr   AS BYTE
  35.     NoKey     AS BYTE
  36.     NoText    AS STRING * 17
  37.     NoAttr    AS BYTE
  38.     OffAttr   AS BYTE
  39.     ShdoFore  AS BYTE
  40.   END TYPE
  41. '────────────────────────────────────────────────────────────────────────────
  42. '════════════════════════════════════════════════════════════════════════════
  43. DECLARE FUNCTION fTmenu%            (I$(),BYVAL LastI%,H$,SEG Exet$,BYVAL SN%)
  44. DECLARE FUNCTION fTmenuBox$         (I$(),BYVAL LastI%)
  45. DECLARE FUNCTION fTmenuDD?          (M$(),H$(),BYVAL SN?)
  46. DECLARE FUNCTION fTMenuDDopen$      (M$(),L?(),O?(),A?(),SEG Exet$)
  47. DECLARE FUNCTION fTmenuH%           (I$(),BYVAL LastI%,H$(),SEG Exet$,BYVAL SN%)
  48. DECLARE FUNCTION fTmenuHO%          (I$(),BYVAL LastI%,H$(),O?(),Exet$,BYVAL SN%)
  49. DECLARE FUNCTION fTmenuHOT%         (I$(),BYVAL LastI%,H$(),O?(),T%(),BYVAL Exet$,BYVAL SN%)
  50. DECLARE FUNCTION fTmenuHT%          (I$(),BYVAL LastI%,H$(),T%(),SEG Exet$,BYVAL SN%)
  51. DECLARE FUNCTION fTmenuINDEX%       (I$(),BYVAL LastI%,SEG H$,SEG Exet$,BYVAL Sn%)
  52. DECLARE FUNCTION fTmenuItem?        (SEG M$,SEG I$,BYVAL ItemOn?,BYVAL Nattr?,BYVAL Lattr?,BYVAL Oattr?)
  53. DECLARE FUNCTION fTmenuO%           (I$(),LastI%,SEG H$,O?(),SEG Exet$,BYVAL SN%)
  54. DECLARE FUNCTION fTmenuOT%          (I$(),BYVAL LastI%,H$,O?(),T%(),SEG Exet$,BYVAL SN%)
  55. DECLARE      SUB  TMenuSETUP        (SEG I$,BYVAL LastI%,BYVAL Wide%)
  56. DECLARE FUNCTION fTmenuT%           (I$(),BYVAL LastI%,H$,T%(),SEG Exet$,BYVAL SN%)
  57. DECLARE FUNCTION fYesNo?            (BYVAL T$,BYVAL Row?,BYVAL Col?,BYVAL Cols?,BYVAL Hit?)
  58. '════════════════════════════════════════════════════════════════════════════
  59.